home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2003 #12 / Amiga Plus CD - 2003 - No. 12.iso / AmigaPlus / Games / talesoftamar_upd / ToT-Install < prev    next >
Text File  |  2003-08-08  |  11KB  |  309 lines
  1. ;$VER: ToT-Install (2002-11-25)
  2. ;Sebastian Huebner <cyco@baud.de>
  3.  
  4. (onerror (P_CleanUp))
  5.  
  6. (procedure P_CleanUp
  7.   (run "Goodies/SoundQuit.exe" (safe))
  8. )
  9.  
  10. ;check for installer version >=44 (OS3.5))
  11. (set #instver (/ @installer-version 65536))
  12. (if (>= #instver 44)
  13.     (
  14.       (effect "lower_right" "radial" $660000 $000000)
  15.       (showmedia "symbol" "Goodies/Title.iff" "upper_left" "none" 0)
  16.     )
  17. )
  18. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  19. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  20. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  21.  
  22.  
  23. (set #totversion "Client 0.50 R6")
  24. (set #totdirname "TalesOfTamar" )
  25. (set #totassign  "ToT" )
  26. (set #deletedatafiles "(DEMO1_TCPIPReq.dat|DEMO1_TCPIPReq.RAWB|Kundschafter.RAWB|Waren.dat)")
  27. (run "run >NIL: Goodies/Sound.exe" (safe))
  28.  
  29. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  30. ;~~~~~~~~~~~~~~~~~~alten Pfad suchen~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  31. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  32. ; altes assign vorhanden? wenn nicht: "games:" vorhanden?
  33. (set #oldplace (getassign #totassign))
  34. (set #games    (getassign "games"   ))
  35. (if (and (<> "" #oldplace) (exists #oldplace))
  36.     ( (set #oldassignfound 1) (set @default-dest (pathonly #oldplace)) )
  37.     (if (and (<> "" #games) (exists #games))
  38.         (set @default-dest "Games:")
  39.     )
  40. )
  41.  
  42.  
  43. (complete 0)
  44.  
  45.  
  46. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  47. ;~~~~~~~~~~~~~~~~~~~~~~~Texte~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  48. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  49.  
  50. ;~~~~~~~~~~~~~~~~~~Englische Texte~~~~~~~~~~~~~~~~~~
  51. (set #introduction
  52.   (cat "\nWelcome to the Installation of\n\nT A L E S\nO F\nT A M A R\n\n\n\nVersion: "
  53.        #totversion "\n\nhttp://www.tamar.net\nMartin Wolf <eternity@pride.de>"))
  54.  
  55.   (set #licensefile "ToT-License.guide")
  56.   (set #license-request
  57.     (cat "\n\n"
  58.          "Please read the\n"
  59.          "LICENSE AGREEMENT\n"
  60.          "in the window above carefully.\n"
  61.          "\n\n\n"
  62.          "Do you accept all of the license terms and\n"
  63.          "want to proceed with the installation,\n"
  64.          "or\n"
  65.          "do you reject at least one of the license terms\n"
  66.          "and want to abort the installation?")
  67.   )
  68.   (set #license-request-old
  69.     (cat "\n"
  70.          "You are using an outdated version " #instver " of the installer (current: 44.10).\n"
  71.          "Therefore the LICENSE AGREEMENT can't be displayed here directly.\n"
  72.          "\n\n"
  73.          "Please read \"" #licensefile "\" first,\n"
  74.          "before you proceed with the installation.\n"
  75.          "To do this you can abort the installation now\n"
  76.          "and restart it after reading the agreement."
  77.          "\n\n\n"
  78.          "Have you read the license agreement, agree to it\n"
  79.          "and would like to proceed with the installation?")
  80.   )
  81.  
  82.  
  83. (set #ask-path (cat "Where should the directory \"" #totdirname "\" be created?\n"
  84.                     "An existing directory will be used."
  85.                ))
  86. (set #ask-path-help (cat "A new directory \"" #totdirname
  87.                          "\" will be created or an existing one will be used."))
  88. (set #ask-assign (cat "Should the assign \"" #totassign ":\" be added to your "
  89.                       "\"S:user-startup\"?"))
  90. (set #ask-assign-help (cat "The assign \"" #totassign ":\" can be added to your "
  91.                            "\"S:user-startup\".\n\n"
  92.                            "Because it is needed by " @app-name ", "
  93.                            "you should really do this. Otherwise you have to "
  94.                            "perform the addition by hand:\n\n   "
  95.                            ))
  96. (set #fileatplace (cat "Unable to create new directory:"
  97.                        "A file exists at that position ") )
  98.  
  99. (set #goodbye "\n\n\n\nGoodbye and have fun with Tales of Tamar!")
  100.  
  101.  
  102. ;~~~~~~~~~~~~~~~~~~Deutsche Texte~~~~~~~~~~~~~~~~~~
  103. (if (= @language "deutsch")
  104.  (
  105.   (set #introduction
  106.     (cat "\nWillkommen zur Installation von\n\nT A L E S\nO F\nT A M A R\n\n\n\nVersion: "
  107.          #totversion "\n\nhttp://www.tamar.net\nMartin Wolf <eternity@pride.de>"))
  108.  
  109.   (set #licensefile "ToT-Lizenz.guide")
  110.   (set #license-request
  111.     (cat "\n\n"
  112.          "Bitte lesen Sie den\n"
  113.          "LIZENZVERTRAG\n"
  114.          "im obigen Fenster aufmerksam durch.\n"
  115.          "\n\n\n"
  116.          "Möchten Sie dem Vertrag in vollem Umfang zustimmen\n"
  117.          "und die Installation fortsetzen,\n"
  118.          "oder\n"
  119.          "möchten Sie den Vertrag ablehnen\n"
  120.          "und die Installation abbrechen?")
  121.   )
  122.   (set #license-request-old
  123.     (cat "\n"
  124.          "Sie benutzen eine veraltete Version " #instver " des Installers (aktuell: 44.10).\n"
  125.          "Deshalb kann der LIZENZVERTRAG hier leider nicht direkt angezeigt werden.\n"
  126.          "\n\n"
  127.          "Bitte lesen Sie erst \"" #licensefile "\",\n"
  128.          "bevor Sie die Installation durchführen.\n"
  129.          "Dazu können Sie die Installation an diesem Punkt unterbrechen\n"
  130.          "und nach dem Lesen des Vertrages neu starten."
  131.          "\n\n\n"
  132.          "Haben Sie den Vertrag gelesen, stimmen ihm in vollem Umfang zu\n"
  133.          "und möchten die Installation fortsetzen?")
  134.   )
  135.  
  136.  
  137.  
  138.   (set #ask-path (cat "Wo soll das Verzeichnis \"" #totdirname "\" angelegt werden?\n"
  139.                       "Ein schon existierendes Verzeichnis wird weiter benutzt."
  140.                  ))
  141.   (set #ask-path-help (cat "A neues Verzeichnis \"" #totdirname
  142.                            "\" wird erstellt oder ein bereits vorhandenes weiter benutzt."))
  143.   (set #ask-assign (cat "Soll die Zuweisung \"" #totassign ":\" zu Ihrer "
  144.                       "\"S:user-startup\" hinzugefügt werden?"))
  145.   (set #ask-assign-help (cat "Die Zuweisung \"" #totassign ":\" kann zu Ihrer "
  146.                            "\"S:user-startup\" hinzugefügt werden.\n\n"
  147.                            "Da die Zuweisung von " @app-name " benötigt wird, "
  148.                            "sollten Sie die Ergänzung zulassen, andernfalls müssen sie "
  149.                            "diese per Hand durchführen:\n\n   "
  150.                            ))
  151.   (set #fileatplace (cat "Kann neues Verzeichnis nicht erstellen:"
  152.                          "Eine Datei befindet sich an der Position ") )
  153.  
  154.   (set #goodbye "\n\n\n\nViel Spaß mit Tales of Tamar!")
  155.  )
  156. )
  157.  
  158. ; ~~~~~~~~~Cadenas en español 1.0 (25.11.02) © Dámaso D. Estévez ~~~~~~~~~~~~
  159.  
  160. (if (= @language "español")
  161.  (
  162.   (set #introduction
  163.     (cat "\nBienvenido al guión instalador de\n\nT A L E S\nO F\nT A M A R\n\n\n\nVersión: "
  164.          #totversion "\n\nhttp://www.tamar.net\nMartin Wolf <eternity@pride.de>"))
  165.  
  166.   (set #licensefile "ToT-Licencia.guide")
  167.   (set #license-request
  168.     (cat "\n\n"
  169.          "Por favor, lea con atención\n"
  170.          "EL ACUERDO DE LICENCIA\n"
  171.          "que se muestra en la ventana superior.\n"
  172.          "\n\n\n"
  173.          "¿Acepta todos los puntos de éste\n"
  174.          "y quiere proceder a la instalación,\n"
  175.          "o\n"
  176.          "rechaza algún punto de dicho acuerdo\n"
  177.          "y quiere abortar la instalación?")
  178.   )
  179.   (set #license-request-old
  180.     (cat "\n"
  181.          "Está utilizando una versión anticuada del programa instalador (la versión " #instver ", cuando la actual es la 44.10).\n"
  182.          "Por ello EL ACUERDO DE LICENCIA no puede ser mostrador desde aquí directamente.\n"
  183.          "\n\n"
  184.          "Por favor lea primero el fichero \"" #licensefile "\",\n"
  185.          "antes de proceder a realizar la instalación.\n"
  186.          "Para ello aborte la instalación ahora\n"
  187.          "y vuelva a realizarla después de leer dicho acuerdo."
  188.          "\n\n\n"
  189.          "¿Ha leido el acuerdo de licencia, y está de acuerdo con todos\n"
  190.          " sus puntos y quiere proceder con la instalación?"))
  191.  
  192.   (set #ask-path (cat "¿Dónde debe crearse el directorio \"" #totdirname "\"?\n"
  193.                     "De existir previamente, se utilizará éste."
  194.                ))
  195.   (set #ask-path-help (cat "Un nuevo directorio \"" #totdirname
  196.                          "\" se creará o se utilizará uno ya existente."))
  197.   (set #ask-assign (cat "¿Debo añadir la asignación \"" #totassign ":\" en el fichero "
  198.                       "\"S:user-startup\" de su sistema?"))
  199.   (set #ask-assign-help (cat "La asignación \"" #totassign ":\" puede ser añadida a su "
  200.                            "fichero \"S:user-startup\".\n\n"
  201.                            "Debido a que es requerida por `" @app-name "', "
  202.                            "debería aceptar. De otra forma tendrá que "
  203.                            "realizar dicha tarea a mano:\n\n   "
  204.                            ))
  205.   (set #fileatplace (cat "Imposible crear un nuevo directorio: "
  206.                        "ya existe un fichero en dicha posición ") )
  207.  
  208.   (set #goodbye "\n\n\n\n¡Hasta la próxima y que disfrute con `Tales of Tamar'!")
  209.  
  210.   )
  211. )
  212.  
  213. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  214. ;~~~~~~~~~~~~~~~~~~Installation~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  215. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  216.  
  217. (complete 1)
  218.  
  219. ; introduction
  220. (message #introduction (all))
  221.  
  222.  
  223. (complete 2)
  224.  
  225.  
  226. ; show license agreement
  227. (if (>= #instver 44)
  228.     (
  229.       (showmedia 'license' #licensefile 'upper_right' 'medium' 1 'wordwrap')
  230.       (message #license-request (all))
  231.       (closemedia license)
  232.     )
  233.     (
  234.       ; installer is too old to show license directly
  235.       (message #license-request-old (all))
  236.     )
  237. )
  238.  
  239.  
  240. (complete 10)
  241.  
  242.  
  243. ;choose user level
  244. (welcome)
  245.  
  246.  
  247. (complete 20)
  248.  
  249.  
  250. ; wo installieren?
  251. (set #totpath (askdir (prompt #ask-path) (help #ask-path-help)
  252.                       (default @default-dest))
  253. )
  254.  
  255. ; tot-verzeichnis anhaengen
  256. (set #totpath (tackon #totpath #totdirname))
  257.  
  258. (complete 30)
  259.  
  260. ; platz schon belegt oder alte schublade vorhanden?
  261. (set #checkplace (exists #totpath))
  262. (if (= #checkplace 1)
  263.     (abort (cat #fileatplace #totpath))
  264. )
  265.  
  266. (if (>= #instver 44)
  267.     (
  268.       (closemedia symbol)
  269.       (showmedia "symbol" "Goodies/Bild1.iff" "upper_left" "none" 0)
  270.     )
  271. )
  272.  
  273. (complete 50)
  274.  
  275. ; evtl. alte files loeschen, die nicht mit neuen ueberschrieben werden
  276. (if (= 2 #checkplace)
  277.     (if #deletedatafiles
  278.         (foreach (tackon #totpath "data")
  279.                  #deletedatafiles
  280.                  (delete (tackon (tackon #totpath "data") @each-name)
  281.                          (prompt "") (help ""))
  282.         )
  283.     )
  284. )
  285.  
  286. (complete 70)
  287.  
  288. ; alles ausser #?install#? kopieren (wenn noetig: neues Verzeichnis)
  289. (copyfiles (prompt "") (help "") (source "") (dest #totpath)
  290.            (pattern "~(#?install#?)") (infos) (noposition)
  291. )
  292.  
  293. (complete 90)
  294.  
  295. ; assign in die user-startup und auch gleich aktivieren
  296. (set #assigntext (cat "Assign \"" #totassign ":\" \"" #totpath "\""))
  297. (startup @app-name (prompt #ask-assign)
  298.                    (help (cat #ask-assign-help #assigntext))
  299.          (command #assigntext))
  300. (makeassign #totassign #totpath)
  301.  
  302. (complete 100)
  303. ; und weg...
  304. (set @default-dest #totpath)
  305.  
  306. (P_CleanUp)
  307.  
  308. (exit #goodbye)
  309.